object Form1: TForm1
  Left = 84
  Top = 71
  Width = 916
  Height = 461
  Caption = 'PINGovalka'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 224
    Top = 368
    Width = 6
    Height = 13
    Caption = '0'
  end
  object Label2: TLabel
    Left = 216
    Top = 280
    Width = 3
    Height = 13
    Caption = '['
  end
  object Label3: TLabel
    Left = 288
    Top = 368
    Width = 90
    Height = 13
    Caption = '] '#1058#1077#1082#1091#1097#1080#1081' '#1080#1085#1076#1077#1082#1089
  end
  object Chart1: TChart
    Left = 216
    Top = 8
    Width = 689
    Height = 97
    AnimatedZoom = True
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      'PING')
    TabOrder = 0
    object Label4: TLabel
      Left = 48
      Top = 0
      Width = 2
      Height = 13
      Caption = '|'
    end
    object Series1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object BitBtn1: TBitBtn
    Left = 216
    Top = 392
    Width = 75
    Height = 25
    Caption = #1057#1090#1072#1088#1090'!'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 312
    Top = 392
    Width = 75
    Height = 25
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object RichEdit1: TRichEdit
    Left = 8
    Top = 8
    Width = 201
    Height = 409
    Lines.Strings = (
      '127.0.0.1')
    TabOrder = 3
    OnMouseUp = RichEdit1MouseUp
  end
  object DBGrid1: TDBGrid
    Left = 216
    Top = 112
    Width = 353
    Height = 249
    DataSource = DataSource1
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ip'
        Width = 142
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'date'
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'time'
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'res'
        Width = 36
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 576
    Top = 112
    Width = 329
    Height = 249
    DataSource = DataSource2
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ip'
        Width = 139
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'date'
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'action'
        Width = 48
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 408
    Top = 392
    Width = 75
    Height = 25
    Caption = #1040#1088#1093#1080#1074
    TabOrder = 6
    OnClick = Button1Click
  end
  object IdIcmpClient1: TIdIcmpClient
    Left = 648
    Top = 392
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 616
    Top = 392
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 6000
    OnTimer = Timer1Timer
    Left = 584
    Top = 392
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ip'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'date'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'time'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'res'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 544
    Top = 392
    Data = {
      7B0000009619E0BD0100000018000000040000000000030000007B0002697001
      0049000000010005574944544802000200140004646174650100490000000100
      0557494454480200020014000474696D65010049000000010005574944544802
      00020014000372657301004900000001000557494454480200020014000000}
    object ClientDataSet1ip: TStringField
      FieldName = 'ip'
    end
    object ClientDataSet1datre: TStringField
      FieldName = 'date'
    end
    object ClientDataSet1time: TStringField
      FieldName = 'time'
    end
    object ClientDataSet1res: TStringField
      FieldName = 'res'
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 504
    Top = 392
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = True
    FieldDefs = <
      item
        Name = 'ip'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'date'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'action'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 744
    Top = 392
    Data = {
      650000009619E0BD010000001800000003000000000003000000650002697001
      0049000000010005574944544802000200140004646174650100490000000100
      05574944544802000200140006616374696F6E01004900000001000557494454
      480200020014000000}
    object ClientDataSet2ip: TStringField
      FieldName = 'ip'
    end
    object ClientDataSet2datre: TStringField
      FieldName = 'date'
    end
    object ClientDataSet2res: TStringField
      FieldName = 'action'
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 712
    Top = 392
  end
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 0
    Left = 680
    Top = 392
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer2Timer
    Left = 776
    Top = 392
  end
end
